home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / dev / gui / MPGui5xs.lha / Install < prev    next >
Text File  |  1997-02-16  |  2KB  |  93 lines
  1. ; MPGui - Amiga Guis from Text Files
  2. ; Copyright (C) © 1996 Mark John Paddock
  3.  
  4. ; $VER: MPGui-Install 5.3 (16.2.97)
  5.  
  6. ; This program is free software; you can redistribute it and/or modify
  7. ; it under the terms of the GNU General Public License as published by
  8. ; the Free Software Foundation; either version 2 of the License, or
  9. ; any later version.
  10.  
  11. ; This program is distributed in the hope that it will be useful,
  12. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. ; GNU General Public License for more details.
  15.  
  16. ; You should have received a copy of the GNU General Public License
  17. ; along with this program; if not, write to the Free Software
  18. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19.  
  20. ; mark@topic.demon.co.uk
  21. ; mpaddock@cix.compulink.co.uk
  22.  
  23. (complete 10)
  24.  
  25. ;Check where to install library
  26. (Set #LibChoice
  27.     (askchoice
  28.         (prompt "Where do you want to install the libraries?\n\n"
  29.             "You can choose to install the library required by MPGui "
  30.             "in the current directory, "
  31.             "your LIBS: directory, or some other directory.")
  32.         (help @askchoice-help)
  33.         (choices "In Place" "LIBS:" "Elsewhere")
  34.         (default 1)
  35.     )
  36. )
  37.  
  38. (complete 20)
  39.  
  40. (if (= #LibChoice 2)
  41.     (Set #LibDir
  42.         (askdir
  43.             (prompt "Select directory in which to install the MPGui libraries")
  44.             (help @askdir-help)
  45.             (default "LIBS:")
  46.         )
  47.     )
  48. )
  49.  
  50. (complete 30)
  51.  
  52. ; Set up directory names
  53. (Set #DestDir (expandpath ""))
  54.  
  55. (complete 40)
  56.  
  57. (if (= #libchoice 0)
  58.     (Set #LibDir #DestDir)
  59. )
  60.  
  61. (complete 50)
  62.  
  63. (if (= #libchoice 1)
  64.     (Set #LibDir "LIBS:")
  65. )
  66.  
  67. (complete 60)
  68.  
  69. (set @default-dest 
  70.     #DestDir
  71. )
  72.  
  73. (complete 70)
  74.  
  75. (Set #SrcGui "libs/MPGui.library")
  76.  
  77. (complete 80)
  78.  
  79. (Set #DestGui "MPGui.library")
  80.  
  81. (complete 90)
  82.  
  83. ; Copy library
  84. (
  85.     (copylib
  86.         (source #SrcGui)
  87.         (dest #LibDir)
  88.         (newname #DestGui)
  89.     )
  90. )
  91.  
  92. (complete 100)
  93.